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— BcdList.Mesa Edited by Sandman on August 31, 1977 10:21 AM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
CommanderDefs: FROM "commanderdefs'*, 
ControlDefs: FROM "controldef s", 
lODefs: FROM "iodefs", 
ListerOefs: FROM "1 isterdef s" , 
OutputDefs: FROM "outputdef s" , 
SegmentDefs: FROM "segmentdef s", 
StringDefs: FROM "stringdef s" . 
SymDefs: FROM "symdefs"; 

DEFINITIONS FROM OutputDefs, BcdDefs; 

BcdList: PROGRAM 

IMPORTS CommanderDefs, lODefs, OutputDefs, SegmentDefs, StringDefs 

EXPORTS ListerOefs = 

BEGIN 



bed: 


POINTER TO BCD; 


tb: 


CARDINAL; 


ssb: 


STRING; 


ctb: 


CARDINAL 




mtb: 


CARDINAL 




itb: 


CARDINAL 




etb: 


CARDINAL 




ftb: 


CARDINAL 




ntb: 


CARDINAL 





InstallBcd: PROCEDURE [seg: SegmentDefs . FileSegmentHandle] 
BEGIN OPEN SegmentDefs; 
size: CARDINAL; 

IF -seg. swappedin THEN Swapln[seg]; 
bed ♦■ FneSegmentAddress[seg] ; 
IF ( size^-bcd . nPages) U seg. pages THEN 

BEGIN 

Un1oek[seg]; 

MoveFneSegment[seg, seg, base, size] ; 

Swapln[seg]; 

bed ♦■ FneSegmentAddress[seg]; 

END; 
tb ♦• LOOPHOLE[bcd]; 
ssb ^ LOOPHOLE[bcd+bed.ssOffset]; 
etb ♦• tb+bed.ctOffset; 
mtb ♦• tb+bed.mtOffset; 
itb ♦- tb+bed. impOffset; 
etb ♦- tb+bed. expOffset; 
ftb <- tb+bed. ftOffset; 
ntb ♦• tb+bed. ntOffset; 
RETURN 
END; 

UnstallBed: PROCEDURE [seg: SegmentDefs . Fi leSegmentHandle] 
BEGIN OPEN SegmentDefs; 
IF seg. swappedin THEN Unlock[seg]; 
SwapOut[seg] ; 
RETURN 
END; 

WriteBcdID: PROCEDURE [name: STRING, bed: POINTER TO BCD] = 
BEGIN 

Pu tSLring[name] ; 
PutString[" configured "]; 
PutTi me [bed. version. time]; 
IF bed. source if [0.0] THEN 

BEGIN 

PutString[" from "]; 

P u t N ame [bed. source]; 

END; 
PutString[" by "]; 
Pr inlMach ine[bcd. version]; 
IF bed. vers ion ident it VersionID THEN 

BEGIN PutSLring[" Obsolete VersionID = "]; 

PutDecima! [bed . vers ion ident] END; 
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PutCRC]; 

PutString[" Configured by "]; 

PutTime[bcd. creator, time]; 

PutString[" "]: 

PrintMachine[bcd. creator]; 

PutCR[]; PutCR[];- 

RETURN 

END; 

PrintBcd: PUBLIC PROCEDURE » 
BEGIN 

PrintHeader[]; PrintConf igs[]; 
PrintImports[]; PrintExportsf] ; 
PrintModu1es[]: PrintFi1es[]; 
RETURN 
END; 

PrintHeader: PUBLIC PROCEDURE » 
BEGIN 
PutString[ "Configurations: "]; PutDecima1[bcd .nConf igs] ; 



PutString[", Modules: "] 
PutString[". Imports: "] 
PutString[", Exports: "] 



PutDecima1[bcd .nModules]; 

PutDecima1[bcd .n Imports] ; 

PutDecima1[bcd,nExports] ; 
PutString['*, Dummy: "]; Pu tDecimal [bed . f i rstdummy] ; 
PutString[", ^Dummies: "]; PutDecima1[bcd. nDummies]; 
PutCR[]; PutCR[]; 
RETURN 
END; 

PrintConfigs: PUBLIC PROCEDURE = 
BEGIN 

cti: CTIndex ♦- FIRST[CTIndex] ; 
PutSt ring ["Con figurations"] ; 
PrintIndex[bcd.ctOffset]; 
PutChar[':]; PutCR[]; 
UNTIL cti = bcd.ctLimit DO 

PrintConf ig[cti]; 

cti ♦- cti + SIZE[CTRecord]: 

IF LOOPHOLE[cti .CARDINAL] > LOOPHOLE[bcd . ctLimi t . CARDINAL] THEN GO TO Bogus; 

REPEAT Bogus => Pr intGarbage[] ; 

ENDLOOP; 
PutCR[]: 
RETURN 
END; 

PrintConf ig: PUBLIC PROCEDURE [cti: CTIndex] = 
BEGIN OPEN ctb-Hcti; 
Tab[2]; 

PutName[name] ; Printlndex[cti] ; 
IF namedinstance THEN 

BEGIN 

PutString[", instance: "]; 

PutInstanceName[[conf ig[cti]]] ; 

END; 
PutString[", file: "]; 
PrintFi 1eName[f ile] ; Pr intlndex[ f i 1e] ; 
IF config if CTNull THEN 

BEGIN PutString[", parent: "]; 

PutName[(ctb+conf ig) .name]; 

Pr intIndex[conf ig] ; 

END; 
IF control U MTNull THEN 

BEGIN PutString[", control: "]; 

Pu tName[(mLb+control ) . name] ; 

PrintIndex[con trol ] ; 

FND; 
PutCR[]; 
RETURN 
END; 

Printlmports: PUBLIC PROCTDURE = 
BEGIN 

iti: tMPIndex ♦- FTRST[IMPIndex] ; 
PutStr I ng[" Imports"] ; 
Pr jnt rndex[bcd. impOffset]; 
PulChar[' :]; PutCR[]: 
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UNTIL iti » bcd.impLimit 00 

PrintImport[iti]: 

iti ♦- iti + SIZE[IMPRecord3: 

IF LOOPHOLE[iti, CARDINAL] > LOOPHOLE[bcd . impLimit. CARDINAL] THEN GO TO Bogus; 

REPEAT Bogus => PrintGarbage[] ; 

ENDLOOP; 
PutCR[]; 
RETURN 
END; 

Printlmport: PUBLIC PROCEDURE [iti: IMPIndex] * 
BEGIN OPEN itb+iti; 
Tab[2]; 

PutName[name]: Printlndex[iti]; 
IF port = module THEN PutString[" (module)"]; 
IF namedinstance THEN 

BEGIN 

PutString['\ instance: "]; 

PutIastanceName[[import[iti]]]; 

END; 
PutString[". file: "]; 
PrintFileName[f ile]; Printlndex[f ile] ; 
PutString[", gfi: "]; 
PutDecimal[gf i]; 
PutString['*. ngfi: "]; 
PutDecimal[ngf i]; 
PutCR[]; 
RETURN 
END; 

PrintExportS: PUBLIC PROCEDURE « 
BEGIN 

eti: EXPIndex ♦• FIRST[EXPIndex]; 
PutString["Exports"]; 
PrintIndex[bcd.expOffset]; 
PutChar[':]; PutCR[]; 
UNTIL eti = bcd.expLimit 00 

PrintExport[eti]; 

eti ♦• eti + (etb+eti ) . size + SIZE[EXPRecord]-l; 

IF L00PH0LE[eti .CARDINAL] > L00PH0LE[bcd . expLimi t .CARDINAL] THEN GO TO Bogus; 

REPEAT Bogus => Pr i ntGarbage[] ; 

ENDLOOP; 
PutCRC]; 
RETURN 
END; 

PrintExport: PUBLIC PROCEDURE [eti: EXPIndex] « 
BEGIN OPEN etb+eti; 
i: CARDINAL; Tab[2]: 
PutName[name] ; Printlndex[eti ]; 
IF port = module THEN PutString[" (module)"]; 
IF namedinstance THEN 

BEGIN 

PutString[", instance: "]; 

Pu t In s tan ceName[ [export [eti]]] ; 

END; 
PutString[". file: "]; 
PrintFileName[f ile]; Printlndex[f i le] ; 
PutString[", size: "]; 
PutDec imal [size] ; 
IF OumpLinks THEN 

BEGIN 

PutString[", links:"]; 

FOR i IN [0. .size) DO 

IF i MOD 8=0 THEN Tab[4] ELSE PutChar[' ]; 

PrintCon troll. ink[links[i]]; 

IF i + 1 ff size THEN PutChar[' ,]; 

ENDLOOP; 

END; 
PutCR[]; 
RETURN 
END; 

PrintModules: PUBLIC PROCEDURE = 
BFGIN 
mti: MTIndex ^ FIRST[MT fndex] ; 
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PutString["Modules'*3; 
PrintIndex[bcd.mtOffset]; 
PutChar[':]; PutCRC]; 
UNTIL mti = bcd.mtLimit DO 

PrintModule[fnti]; 

mti *- mti + SIZE[MTRecord]-l+(mtb+mti ). frame, length; 

IF LOOPHOLE[mti. CARDINAL] > LOOPHOLE[bcd.mtLimit. CARDINAL] THEN GO TO Bogus; 

REPEAT Bogus «> PrintGarbage[] ; 

ENDLOOP; 
PutCR[]; 
RETURN 
END; 

PrintModule: PUBLIC PROCEDURE [mti: MTIndex] » 
BEGIN OPEN mtb+mti; 
i: CARDINAL; Tab[2]; 
PutName[name]; Printlnd8x[mti]; 
IF namedinstance THEN 
BEGIN 

PutString["instanc8: "]; 
PutInstanceName[[module[mti]]3; 
END; 
PutString[". file: "]; 
PrintFileNameCf He]; Printlndex[f ile] ; 
IF config # CTNull THEN 
BEGIN 

PutString[". config: "]; 
PutName[(ctb+conf ig) .name]; 
PrintIndex[conf ig]; 
END; 
PutString[", fsi: "]; PutDecimal [IF fsi = ControlDef s .maxanocslot THEN framesize ELSE fsi]; 
PutString[", gfi: "]; PutDecimal [gf i] ; 
PutString[", ngfi: "]; PutDecimal [ngfi ]; 
Tab[4]; 

PutString["code: "]; PrintSegDescfcseg]; 
PutString[", symbols: "]; PrintSegDesc[sseg] ; 
BEGIN OPEN frame; Tab[4]; 

PutString["frame offset: "]; PutOecimal[of f set] ; 
PutString[", frame length: "]; PutDecimal [length] ; 
IF DumpLinks THEN 
BEGIN 

PutString[", control links:"]; 
FOR i IN [0. .length) DO 

IF i MOD 8=0 THEN Tab[6] ELSE PutChar[' ]; 
PrintControlLink[frag[i]]; 
IF i+1 # length THEN PutChar['.]; 
ENDLOOP; 
END; 
END; 
PutCR[]; 
RETURN 
END; 

PrintSegDesc: PUBLIC PROCEDURE [sd: SegDesc] = 
BEGIN 

PrintFileName[sd.file]; PutString[" [base: "]: 
PutDecimal[sd . base] ; PutString[", pages: "]; 
PutDecimal [sd .pages]; 
IF sd.extraPages if THEN 

BEGIN PutChar['+]: PutDecimal [sd . extraPages] ; END; 
PutChar[']]; 
RETURN 
END; 

PrintFiles: PUBLIC PROCEDURE = 
BEGIN 

fti: FTIndex ♦- FIRST[FTrndex] ; 
PutSLring["Files"]; 
Prjntlndex[bcd.ft0ffset]: 
PutChar[' :]; PutCR[]: 
UNTIL fti = bcd.ftLimi t 00 

Printrne[fti]: 

fti ^ rti + SIZ(:[rTRecord]; 

IF lOOPHOl F[fti .CARDINAL] > L00Pfl0LC[bcd . f tL imi t . CARDINAL] THEN GO TO Bogus; 

RfPFAT Bogus => Pr i n tGarbage[] ; 

FNDLOOP; 
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PutCR[]; 

RETURN 

END; 

PrintFile: PUBLIC PROCEDURE [fti: FTIndex] 
BEGIN OPEN ftb+fti; 
Tab[2]; 
SELECT fti FROM 

FTNun => PutStr1ng["(nun)"]; 
FTSelf => PutString["(s8lf)"]; 
ENDCASE => 
BEGIN 

PutName[name]; Printlndex[fti]; 
PutString[", time: "]; 
PutTime[ vers ion. time]; 
PutString[", processor: "]; 
PrintMachine[version]; 
END; 
PutCR[]; 
RETURN 
END; 



-- Util ity Prints 

PrintControlLink: PROCEDURE [link: ControlLink] = 
BEGIN 
map: ARRAY ControlLinkTag OF CHARACTER = [ ' . ' 1 . ' 2 , ' 3] ; 



PutChar['[ 
PutChar[' , ] 
PutChar[' , 
PutChar['] 
END; 



PutDecima1[l ink.gf i]; 
PutDecima1[l ink.ep] ; 
PutChar[map[1 ink. tag]]; 
RETURN 



PrintMachine: PROCEDURE [stamp: BcdDef s .VersionStamp] 
BEGIN 

octal: NumberFormat = [8, FALSE , FALSE, 1] ; 
PutNumber[stamp.net, octal]; 
PutChar['#]: 

PutNumber[stamp .host, octal]; 
PutChar['#]; 

IF stamp. zapped THEN PutString[" zappedl**]; 
RETURN 
END; 

PrintFileName: PROCEDURE [fti: FTIndex] = 
BEGIN 
SELECT fti FROM 

FTNull => PutString["(nun)"]; 

FTSelf => PutString["(self)"]; 

ENDCASE => PutName[(ftb+fti).name]; 
RETURN 
END; 

Printlndex: PROCEDURE [index: UNSPECIFIED] = 
BEGIN 

PutString['* ["]; PutDecimal [ index] ; 
PutChar[']]; RETURN 
END; 

PrintGarbage: PROCEDURE = 
BEGIN Tab[2]; 

PutString["? looks like garbage to me ..."]; 
PutCR[]; RETURN 
END; 

PrintAnonName: PROCEDURE = 
BEGIN 

PuLString[" (anon) "]; 
RETURN 
END; 



-- UL11 ity Puts 

PutSubSlr ing: PROCEDURE [ss: S tr i ngOef s . SubS tri ng] 
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BEGIN i: CARDINAL; 

FOR i IN [ss. offset. .ss.offset+ss. length) DO 

PutChar[ss.base[i]] 

ENDLOOP: 
RETURN 
END; 

PutName: PUBLIC PROCEDURE [n: NameRecord] » 
BEGIN 
ssd: StringOefs.SubStringDescriptor ♦• [ 

base: ssb, offset: n. offset, length: n. length]; 
PutSubString[9ssd]; 
RETURN 
END; 

Indent: PROCEDURE [n: CARDINAL] » 
BEGIN 

THROUGH [l..n/8] DO PutChar[IODef s .TAB] ENDLOOP; 
THROUGH [l..n MOD 8] DO PutChar[' ] ENDLOOP; 
RETURN 
END; 

Tab: PROCEDURE [n: CARDINAL] = 
BEGIN PutCR[]; 
Indent[n]; 
RETURN 
END; 

PutlnstanceName: PROCEDURE [n: Namee] = 
BEGIN 
FindName: PROCEDURE [ntb: CARDINAL, nti: NTIndex] RETURNS [BOOLEAN] 

BEGIN 

RETURN[(ntb+nti).item = n]; 

END; 
nti: NTIndex; 
IF (nti ♦- EnumerateNameTable[FindName]) = NTNull 

THEN PrintAronNam8[] 

ELSE PutName[(ntb+nti) .name]; 
END; 

EnumerateNameTable: PROCEDURE [ 
proc: PROCEDURE [CARDINAL, NTIndex] RETURNS [BOOLEAN]] 
RETURNS [nti : NTIndex] = 
BEGIN 

FOR nti ^ FIRST[NTIndex]. nti + SIZE[NTRecord] DO 
IF proc[ntb, nti] THEN RETURN [nti]; 
ENDLOOP; 
RETURN [NTNull]; 
END; 

-- IncorrectVersion: EXTERNAL SIGNAL; 

Bed: PROCEDURE [root: STRING] = 
BEGIN 

i: CARDINAL: 
bcdfile: STRING *- [40]; 
seg : SegmentDef s. Fi leSegment Handle; 
BEGIN OPEN StringDefs; 

AppendString[bcdfile,root]; 
FOR i IN [0. .bcdfile. length) DO 
IF bcdfile[i] = * . THEN EXIT; 

REPFAT FINISHED => AppendStr i ng[bcdf i 1 e , " . bed"] ; 
ENDLOOP: 
END; 
BEGIN OPEN SegmentDefs: 
seg «- NewF ileSegment[ 

NewF i le[bcdf i le , Read, Def aul tVers ion ! 

fileNameError => GO TO NoFile], 
], 1. Read]; 
TnsLallBcd[seg]; 
OpenOutput[root , " . bl "] ; 
WrJLeBcdID[bcdfile,bcdi; 
PrintBcd[]; CI oseOu tpu t[ ] ; 
UnsLal lBcd[seg] ; 
EXITS 

NoFile => lODefs .Wr i LeS tr ing["F j le not found"]; 
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END; 
RETURN 
END; 

BcdLinks: PROCEDURE [root: STRING] « 
BEGIN 

DumpLinks ♦• TRUE; 
Bcd[root]; 
DumpLinks ♦• FALSE; 
RETURN 
END; 

BcdSegment: PROCEDURE [ 
root: STRING, base: AltoDef s.PageNumber, pages: AUoDefs. PageCount, links: BOOLEAN] 
BEGIN 

i: CARDINAL: 
bcdfile: STRING ♦- [40]; 
seg: SegmentDef s.FileSegmentHandle; 
DumpLinks ♦- links; 
BEGIN OPEN StringDefs; 

AppendString[bcdf ile, root]; 
FOR i IN [0. .bcdfile. length) DO 
IF bcdfile[i] ^ '. THEN EXIT; 

REPEAT FINISHED -> AppendString[bcdf i le . " , bed"] ; 
ENDLOOP; 
END; 
BEGIN OPEN SegmentDefs; 
seg ^ NewFileSegmenti 

NewFile[bcdf ile, Read. DefaultVersion I 

FileNameError => GO TO NoFile], 
base, pages. Read I 

Inval idSegmentSize »> GO TO BadSegment]; 
InstallBcdTseg I SwapError, SegmentFault => GO TO BadSegment]; 
OpenOutput[root,".bl"]; 
WriteBcdID[bcdfile.bcd]; 
PrintBcd[]; CloseOutput[]; 
UnstallBcd[seg]; 
EXITS 

NoFile => IODefs.WriteString["File not found"]; 
BadSegment => I0Defs.WriteString["8ad Segment"]; 
END; 
DumpLinks ♦• FALSE; 
END; 

DumpLinks: BOOLEAN ♦- FALSE; 

command : CommanderDef s .CommandBlockHandle; 

command ^ CommanderDef s . AddCommand["Bcd" . LOOPHOLE[Bcd] , 1]; 
command. params[0] ♦■ [type: string, prompt: "Filename"]; 

command ♦- CommanderDef s .AddCommand["BcdLinks" . LOOPHOLE[BcdLinks] , 1]; 
command. params[0] ♦- [type: string, prompt: "Filename"]; 

command <- CommanderDef s . AddCommand["BcdSegment" , LOOPHOLE[BcdSegment] , 4]; 
command. params[0] ♦- [type: string, prompt: "Filename"]; 
command. params[l] ♦- [type: numeric, prompt: "Base"]; 
command. params[2] ♦- [type: numeric, prompt: "Pages"]; 
command. params[3] ♦■ [type: boolean, prompt: "Links"]; 

END 



